home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / slapy3.z / slapy3
Encoding:
Text File  |  1998-10-30  |  947 b   |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAAPPPPYYYY3333((((3333FFFF))))                                                          SSSSLLLLAAAAPPPPYYYY3333((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAPY3 - return sqrt(x**2+y**2+z**2), taking care not to cause
  10.      unnecessary overflow
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      REAL FUNCTION SLAPY3( X, Y, Z )
  14.  
  15.          REAL      X, Y, Z
  16.  
  17. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  18.      SLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause unnecessary
  19.      overflow.
  20.  
  21.  
  22. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  23.      X       (input) REAL
  24.              Y       (input) REAL Z       (input) REAL X, Y and Z specify the
  25.              values x, y and z.
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.